home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 079c.dms / 079c.adf / ajc_source.lha / AJC / AJC-PORTALIII.AMOS / AJC-PORTALIII.amosSourceCode next >
Encoding:
AMOS Source Code  |  1992-02-26  |  1.7 KB  |  62 lines
  1. ' ------------------------------------------------>  
  2. ' BLACK DRAGON DESIGN - THE DARK PORTAL III INTRO
  3. ' <------------------------------------------------
  4. ' (c) 1994 Andrew Campbell / Music (c) Mike Richmond 1994  
  5. '
  6. ' An example that proves you don't need to be a demo-coding
  7. ' genius to produce cool introduction sequences! This is dead
  8. ' simple and gives the Terminator film opening credits a run 
  9. ' for its money! Here's how the screens are used:
  10. '
  11. ' Screen : 0 = DARK PORTAL logo scrolling left (display)   
  12. '          1 = DARK PORTAL logo in memory. 
  13. '          2 = CREDITS PIC logos scrolling on (display)  
  14. '          3 = CREDITS PIC logo in memory. 
  15. '
  16. ' ------------------------------------------------------>  
  17. ' BDD, 4 ALLOE FIELD PLACE, ILLINGWORTH, HALIFAX, HX2 9ES  
  18. ' Get in touch... you know it makes sense! Have fun - AJC  
  19. ' <------------------------------------------------------  
  20. '
  21. Default Palette 0,0,0,0,0,0,0,0,0,$1A,$1,$4,$17,$39,$5C,$8F,0,0,0,0,0,0,0,0,0,0,0,0
  22. Fade 3
  23. Auto View Off 
  24. Track Play 5
  25.  
  26. Unpack 10 To 1 : Unpack 11 To 3 : Screen Hide 1 : Screen Hide 3
  27. Screen Open 0,320,256,8,Lowres : Curs Off : Flash Off : Hide On : Cls 0
  28. Screen 0 : Fade 1,,$102
  29. Screen Open 2,320,256,8,Lowres : Curs Off : Flash Off : Hide On : Cls 0
  30.  
  31. Screen 0 : Def Scroll 1,0,0 To 320,256,-1,0
  32. Screen 2 : Def Scroll 2,0,0 To 320,256,0,-1
  33.  
  34. Auto View On 
  35. View 
  36.  
  37. Dual Playfield 0,2
  38. Dual Priority 2,0
  39.  
  40. Timer=0
  41.  
  42. For _DARKPORTAL=0 To 1260
  43.  
  44.  Screen 0
  45.  If _DARKPORTAL<960
  46.   Screen Copy 1,_DARKPORTAL,0,_DARKPORTAL+1,256 To 0,319,0
  47.  End If 
  48.  Wait Vbl 
  49.  Scroll 1
  50.  
  51.  Screen 2
  52.  If _DARKPORTAL<960
  53.   Screen Copy 3,0,_DARKPORTAL,320,_DARKPORTAL+1 To 2,10,255
  54.  End If 
  55.  Wait Vbl 
  56.  Scroll 2
  57.  
  58. Next _DARKPORTAL
  59.  
  60. For I=0 To 3 : Screen Close I : Next I
  61. Track Stop 
  62. Edit